home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 31
/
Tiger_Disk_031_1996-10_Tiger-Crew-Disk_de_Side_B.d64
/
und was nun...
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
33 lines
333 poke53280,.:poke53281,.:printchr$(147)chr$(8);: forc=1to33:poke646,c
336 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][145] [148][148][157][157][157][157][157][157]":
339 :print"[157] [146][157] [157] [146][157] [157] [146][157] [157] [146][157] [157] [146][157]";
342 poke53281,peek(646):next :poke56325,1:print"[129][145][145]";;
345 print" und was nun? [146] [148][148][144]":fori=0to23: print"[144][146]":next:print"[154]"
348 s=54272:form=0to6:readx::pokes+m,x:next:poke54296,15
351 poke54284,87:pokes+4,17:pokes+11,33:pokes+18,129:k$="[184][223][169][223][169][223][169][223][169][223][169][223][169][223][169][184]"
354 poke56325,0:print"";:print"[144][145][145][145][145]"k$
357 poke54296,15:pokes+4,81:pokes+4,129:printk$
360 poke53281,.:print"[146][145][145][145][145]"k$:poke56325,1
363 fori=0to25:poke211,i:poke214,0:poke646,i/9:printk$
366 poke54296,15:pokes+4,81:poke4,32:printk$
368 print""k$:poke646,3:print""k$:poke56325,2
372 poke54284,87:pokes+4,17:pokes+11,33:pokes+18,129:
375 poke211,40-i:poke214,0:sys58732:sys46374:sys59749:
378 print"[129][145][145][145]"k$::next
381 :forc=2to14:poke646,c:print"":forz=1to100:next
384 poke56325,58:forz=1to50:next:poke199,1
387 print"[147] ";
390 print" [218][218][218][218][218] [218] [218][160][218][218][218][218] [218][218][218][218][218] ";:
393 print" [218] [218][218] [218] [218] [218] [218][160][160] ";
396 print" [218][218][218] [218][160][218][160][218] [218][160][160][160][218][160][218][218][218] ";
399 print" [218][160][160][160][160][160][218][160][160][218][218][160][218][160][160][160][218][160][218] ";
402 print" [218][218][218][218][218] [218][160][160][218][218][160][218][218][218][218] [218][218][218][218][218] ";
405 print" ";:next:poke199,0:
411 data8,20,0,186,8,255,49:goto 417
414 rem" (w) "
417 s=54272:poke54296,15:fory=20to40step16:pokes+1,y:forc=100to103step.4:pokes+5,c
420 forz=1to65step4*(c/y):pokes+15,z:nextz:pokes+4,49:pokes+6,13*16+15:pokes+4,129
423 pokes+4,49:nextc:pokes+4,17:pokes+0,33:pokes+4,7:nexty:pokes+4,129:print"[147]ciao
426 [129]l[178]33[164]129[169].101011:[151]s[170]4,l:[130]:[153][163]32)"pokelukian":
429 [151]54296,0:[151]56325,58:[129]z[178]1[164]1000:[130]:[158]58253:[162]